5 IFX=0THENX=1:LOAD"UNPACKER",8,1
6 IFX=1THENX=2:LOAD"PS.TITLE.SHP",8,1
7 IFX=2THENX=3:LOAD"HI-RES TEXT.O",8,1
10 POKE249,224:POKE250,204
20 POKE251,0:POKE252,64
30 POKE253,0:POKE254,0
35 POKE53281,0
50 SYS51456
60 SYS51459
70 F$="PS.IMAGE.VIEWER"
75 P$=CHR$(34)+"PRESS ANY KEY"+CHR$(34):   T$="SYS50759,"+P$+",14*8,24*8"
80 PRINT"[147]LOADF$,8"
81 PRINT""T$;
82 PRINT":POKE198,0:WAIT198,1:SYS51459:RUN"
83 POKE631,13:POKE632,13:POKE198,2:END